home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / pcmagazi / 1989 / 07 / string2.bas < prev    next >
BASIC Source File  |  1988-09-25  |  202b  |  11 lines

  1. DEFINT A-Z
  2. a = ASC(search$)
  3. FOR i = 1 TO n
  4.   IF a = ASC(array$(i)) THEN
  5.      IF search$ = array$(i) THEN
  6.        PRINT search$; " found at element"; i
  7.        EXIT FOR
  8.      END IF
  9.   END IF
  10. NEXT
  11.